0 REM*****************
1 REM* 3-D STATISTIK *
2 REM*@1988 BY RAINER*
3 REM* TEUBER        *
4 REM* PROGRAMMED AT *
5 REM* 28.7.1988     *
6 REM*****************
8 POKE53281,3:POKE53280,5:POKE54296,15:POKE54283,0
9 S1=54279:S2=54280:H=54285:AN=54283
10 PRINTCHR$(8):PRINT"[147]         DADEDE'S  3D-STATISTIK":REM ** ERKLAERUNG **
11 PRINT"[144]GEBE NACH JEDER ZAHL ? DEN WERT EIN,"
12 PRINT"Z.B. 120 (FUER DM,KG O.A.) UND RETURN "
13 PRINT"[144]GEBE NACH JEDEM ?? DEN MONAT ODER   "
14 PRINT"DIE JAHRESZAHL EIN, GEFOLGT VON RETURN"
15 PRINT"WENN MAN NACH DER ZEICHNUNG DIE 'F1'    TASTE  DRUECKT, KANN"
16 PRINT"MAN NEUE WERTE EINGEBEN."
20 REM ** EINGABE **
25 FORA=0TO6
27 A$=""
30 PRINTSTR$(A+1)".";:INPUTA$,JA$:IFA$=""THENPRINT"[145][145]":GOTO30
31 IFLEN(JA$)<1THENJA$="  "
33 IFLEN(JA$)=1THENJA$=" "+JA$
34 POKES1,207:POKES2,34:POKEH,240:POKEAN,17:FORW=1TO100:NEXT:POKEAN,0
35 IFLEN(JA$)>2THENJA$=MID$(JA$,1,2)
36 POKEAN,0
50 A(A)=VAL(A$):JA$(A)=MID$(JA$,1,2)
60 NEXT
78 REM ** GROESSTER WERT **
80 G=A(0)
90 FORB=1TO7
100 IFA(B)>GTHENG=A(B)
110 NEXT
120 REM > ZEICHNEN <-
190 T=-3:PRINT"[147]"
195 D=0:T=T+5:PRINT""TAB(T)"[144]"JA$(C)"[146][169]"
200 A=A(C)/(G+1E-37)*20
210 PRINTTAB(T)"[145][145][144]   [146]":POKEAN,33
220 IFD<A-1THEND=D+1:GOTO210
225 PRINTTAB(T)"[145][169]  [146][144]":POKEAN,0
226 PRINTTAB(T-2)"[145][145]"A(C)
230 IFC<6THENC=C+1:GOTO195
400 REM-> PRESS KEY <-
500 GETA$:IFA$<>"[133]"THEN500
510 RUN